﻿Namespace ViewModel
    Public Class TagViewModel
        Inherits ViewModelBase

        Public Sub New(ByVal tag As Model.TagModel)
            _kind = DirectCast(tag.Kind, TagKind)
            _value = tag.Value
        End Sub

        Private _kind As TagKind
        Public ReadOnly Property Kind() As TagKind
            Get
                Return _kind
            End Get
        End Property

        Private _value As String
        Public ReadOnly Property Value() As String
            Get
                Return _value
            End Get
        End Property

        'Private _liveProgramStation As LiveProgramViewModel
        'Public Property OwnerStation() As LiveProgramViewModel
        '    Get
        '        Return _liveProgramStation
        '    End Get
        '    Set(ByVal value As LiveProgramViewModel)
        '        _liveProgramStation = value
        '        OnPropertyChanged("OwnerStation")
        '    End Set
        'End Property

    End Class
End Namespace

